Magnum One/Magnum One (Mid-American Digital) (Disc Manufacturing).iso/d6/tallyho.arc/JULIAN.FCP

Text File | 1990-09-23 | 573b | 52 lines

@DSPLY "This program converts"
@DSPLY "the calendar date to"
@DSPLY "Julian date and returns"
@DSPLY "the number of days"
@DSPLY "since 01/01/0001."
=
@NEW STEP
@GET "Year?"
@RIN (1)
@GET "Month?"
@RIN (2)
@GET "Day?"
@RIN (3)
@ROUT (2)
-2.85=
@NEW STEP
/12=
@NEW STEP
+
@ROUT (1)
=
@NEW STEP
*367=
@NEW STEP
@RIN (4)
=
@NEW STEP
@ROUT (1)
*.75=
@NEW STEP
+
@ROUT (1)
=
@NEW STEP
@RIN (5)
=
@NEW STEP
@ROUT (4)
-
@ROUT (5)
=
@NEW STEP
+
@ROUT (3)
=
@NEW STEP
-1.5=
@NEW STEP
@FIX (0)
@DSPLY "Julian number of days"
@STOP